unit dClientes;

interface
uses
classes,
dObjects;

type
Tclientes=class(TdObjects)
private
fbairro : string;
fcnpjcpf : string;
fdtalteracao : tdatetime;
fendereco : string;
fflagativo : boolean;
fidcep : integer;
fidcidade : integer;
fidcliente : integer;
fidcontato : integer;
fidpagamento : integer;
fnome : string;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property bairro : string read fbairro write fbairro;
 property cnpjcpf : string read fcnpjcpf write fcnpjcpf;
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property endereco : string read fendereco write fendereco;
 property flagativo : boolean read fflagativo write fflagativo;
 property idcep : integer read fidcep write fidcep;
 property idcidade : integer read fidcidade write fidcidade;
 property idcliente : integer read fidcliente write fidcliente;
 property idcontato : integer read fidcontato write fidcontato;
 property idpagamento : integer read fidpagamento write fidpagamento;
 property nome : string read fnome write fnome;
end;
implementation
constructor Tclientes.create;
begin
inherited;
clear;
self.AddPK(['idcliente']);
self.TableName := 'clientes';
end;
destructor Tclientes.destroy;
begin
inherited destroy;
end;
procedure Tclientes.clear;
begin
 fbairro       :='';
 fcnpjcpf      :='';
 fdtalteracao  :=0;
 fendereco     :='';
 fflagativo    :=false;
 fidcep        :=0;
 fidcidade     :=0;
 fidcliente    :=0;
 fidcontato    :=0;
 fidpagamento  :=0;
 fnome         :='';
end;


end.
 